home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00079_Save the game button.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  2.0 KB  |  86 lines
  1. property pSpr, pOrigMember, pRollMember, pDownMember, pTimer, pSupressRoll
  2.  
  3. on beginSprite me
  4.   pSpr = sprite(me.spriteNum)
  5.   pOrigMember = pSpr.member
  6.   pRollMember = nextMember(pOrigMember, 1)
  7.   pDownMember = nextMember(pOrigMember, 2)
  8.   if inGameMode() or inBonusRoundMode() then
  9.     setCursor(pSpr, pointingHand())
  10.   else
  11.     setCursor(pSpr, noGood())
  12.   end if
  13. end
  14.  
  15. on endSprite
  16.   setCursor(pSpr, defaultCursor())
  17. end
  18.  
  19. on mouseUp
  20.   global gUserAnswer, gDemoVersion
  21.   if inPracticeMode() then
  22.     beginPause()
  23.     MUIalert("You cannot save the game while in practice mode.")
  24.     endPause()
  25.     exit
  26.   else
  27.     if gDemoVersion then
  28.       beginPause()
  29.       MUIalert("The Saved Game feature is disabled in this demo version. In the full version you can save and retrieve any number of games.")
  30.       endPause()
  31.       exit
  32.     else
  33.       if timeLeftOnThisLevel() < seconds(3) then
  34.         beginPause()
  35.         MUIalert("Your shift is about to end. You cannot save the game in the final seconds.")
  36.         endPause()
  37.         exit
  38.       end if
  39.     end if
  40.   end if
  41.   beginPause()
  42.   titleText = "Save Game?"
  43.   promptText = "Would you like to save your game now?"
  44.   saveAndQuit = saveAnd("Quit")
  45.   saveAndResume = saveAnd("Resume")
  46.   Buttons = [saveAndQuit, saveAndResume, "Cancel"]
  47.   multiButtonDialog(Buttons, [#MAC: [25, 150, 300], #Win: [20, 90, 170]], saveAndResume, titleText, promptText, [#MAC: 300, #Win: 250], [#MAC: 35, #Win: 25])
  48.   if gUserAnswer starts "Save" then
  49.     saveGameSilently()
  50.   end if
  51.   endPause()
  52.   if gUserAnswer = saveAndQuit then
  53.     exitGameWithPatronsLeaving()
  54.   end if
  55. end
  56.  
  57. on mouseDown me
  58.   replaceDraggingAnything()
  59.   pSupressRoll = 1
  60.   pSpr.member = pDownMember
  61.   clickSound()
  62.   updateStage()
  63. end
  64.  
  65. on mouseEnter me
  66.   rememberActiveBottle()
  67.   pSpr.member = pRollMember
  68.   showToolTip(pSpr, #save)
  69.   pTimer = nowTicks()
  70. end
  71.  
  72. on mouseLeave me
  73.   pSupressRoll = 0
  74.   restoreActiveBottle()
  75.   pSpr.member = pOrigMember
  76.   hideToolTip()
  77. end
  78.  
  79. on mouseWithin
  80.   if tipTickRange(pTimer) and not pSupressRoll then
  81.     forceToolTip(pSpr, #save)
  82.   else
  83.     dismissToolTip()
  84.   end if
  85. end
  86.